home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 65.zip / BS1 part 65 / Caligari II v2.22.adf / Install < prev    next >
Text File  |  2018-01-29  |  24KB  |  570 lines
  1. ; Caligari Installation Script
  2. ; Version 1.0
  3. ; 15 Jan 1992
  4. ; by J.W. Lockhart and Michael Plitkins
  5. ; Copyright 1991 by Octree Software, Inc. and GVP, Inc.
  6. ;
  7. ; John gets credit for the original script which I hacked up in a
  8. ; few hours to work with Caligari2; thus I take credit for all
  9. ; of the nonsense. MMP
  10. ;
  11. ; Written for use with Commodore Install (Version 1.6)
  12. ;
  13. ; Please note:  Novice mode is disabled in the icon tooltype for
  14. ; this script.
  15. ;
  16. ; History:
  17. ;
  18. ; 1.0    initial release
  19. ;
  20.  
  21. ; set up Caligari vars
  22. (set cal_dsk        "Caligari2_disk1:")                    ; disk volume name
  23. (set cal_dst        (tackon @default-dest "Caligari"))    ; Destination for utils.
  24. (set cal_def        (tackon @default-dest "Caligari"))    ; default destination
  25. (set cal_drv        "Caligari2")                        ; note no ':'
  26. (set cal_drv2        "Caligari2:")
  27. (set cal_dskname1    "Caligari2 disk 1")                    ; sticky paper label
  28. (set cal_volname1    "Caligari2_disk1")                    ; c:label
  29. (set cal_dskname2    "Caligari2 disk 2")                    ; sticky paper label
  30. (set cal_volname2    "Caligari2_disk2")                    ; c:label
  31. (set cal_tmpfile    "ram:caligari.asgns")
  32. (set cal_renddi        "Rend_di")
  33. (set cal_rendnull    "Rend_null")
  34. (set cal_material    "Materials")
  35. (set cal_environ    "Environments")
  36. (set cal_texture    "Textures")
  37. (set cal_data        "Caldata")
  38. (set cal_scratch    "Scratch")
  39. (set cal_eurofont    "eurofont")
  40. (set vid_font        "FONTS:video")
  41.  
  42. ; Common Vars
  43. (set archiver        "lharc")                ; de-archive utility
  44. (set archPath        (tackon cal_dsk "c"))    ; where archiver lives
  45. (set archDest        "ram:")                    ; where to store copy of lharc
  46. (set look_here        "")                        ; where to look for s/w packages
  47.  
  48. (if (exists (tackon archPath archiver))
  49.     (
  50.           (run "copy " (tackon archPath archiver) " " archDest)
  51.         (set archPath archDest)
  52.     )
  53.     ; else
  54.     (set archPath "")                        ; we can check this elsewhere
  55. )
  56.  
  57. ; Find out what to install
  58.  
  59. (if (askbool (prompt "\n\nWhat type of disk drives are in this System?\n")
  60.              (help "\nThe full version of Caligari2 can only be run from a hard"
  61.                    "disk. If you wish to install Caligari2 on a floppy disk, "
  62.                    "it will not be able to perform Broadcast renders. For "
  63.                    "floppy based Caligari, two or more drives are necessary; the "
  64.                    "internal boot drive for Workbench and at least one more "
  65.                    "drive for the Caligari2 disk."
  66.              )
  67.              (default "Hard Disk(s)")
  68.              (choices "Hard Disk(s)" "2 or more Floppies"))
  69. ;;;;;;
  70. ;;;;;;     Install to Hard Disk
  71. ;;;;;;
  72.     (
  73.         (set cal_def (tackon @default-dest "Caligari"))
  74.         (set cal_dst (askdir (prompt "Where shall I install the "
  75.                                      "Caligari2 disks?\n"
  76.                                      "Create a new drawer if you like.")
  77.                              (help @askdir-help) (default cal_def)
  78.                      )
  79.         )
  80.  
  81.         ; Create main directory if necessary...
  82.  
  83.         (if (NOT (exists cal_dst)) (
  84.             (makedir cal_dst (prompt (cat "Creating" cal_dst))
  85.                              (infos)
  86.                              (help @makedir-help))
  87.         ))
  88.  
  89.         ; Create CalData directory if necessary...
  90.  
  91.         (if (NOT (exists (tackon cal_dst cal_data))) (
  92.             (makedir (tackon cal_dst cal_data) (prompt (cat "Creating" (tackon cal_dst cal_data)))
  93.                      (help @makedir-help))
  94.         ))
  95.  
  96.         ; Create Scratch directory if necessary...
  97.  
  98.         (if (NOT (exists (tackon cal_dst cal_scratch))) (
  99.             (makedir (tackon cal_dst cal_scratch) (prompt (cat "Creating" (tackon cal_dst cal_scratch)))
  100.                      (help @makedir-help))
  101.         ))
  102.  
  103.         ; Create Materials directory if necessary...
  104.  
  105.         (if (NOT (exists (tackon cal_dst cal_material))) (
  106.             (makedir (tackon cal_dst cal_material) (prompt (cat "Creating" (tackon cal_dst cal_material)))
  107.                      (help @makedir-help))
  108.         ))
  109.  
  110.         ; Create Textures directory if necessary...
  111.  
  112.         (if (NOT (exists (tackon cal_dst cal_texture))) (
  113.             (makedir (tackon cal_dst cal_texture) (prompt (cat "Creating" (tackon cal_dst cal_texture)))
  114.                      (help @makedir-help))
  115.         ))
  116.  
  117.         ; Create Environments directory if necessary...
  118.  
  119.         (if (NOT (exists (tackon cal_dst cal_environ))) (
  120.             (makedir (tackon cal_dst cal_environ) (prompt (cat "Creating" (tackon cal_dst cal_environ)))
  121.                      (help @makedir-help))
  122.         ))
  123.  
  124.         ; Create Rend_null directory if necessary...
  125.  
  126.         (if (NOT (exists (tackon cal_dst cal_rendnull))) (
  127.             (makedir (tackon cal_dst cal_rendnull) (prompt (cat "Creating" (tackon cal_dst cal_rendnull)))
  128.                      (help @makedir-help))
  129.         ))
  130.  
  131.         ; Create Rend_di directory if necessary...
  132.  
  133.         (if (NOT (exists (tackon cal_dst cal_renddi))) (
  134.             (makedir (tackon cal_dst cal_renddi) (prompt (cat "Creating" (tackon cal_dst cal_renddi)))
  135.                      (help @makedir-help))
  136.         ))
  137.  
  138.         ; Create eurofont directory if necessary...
  139.  
  140.         (if (NOT (exists (tackon cal_dst cal_eurofont))) (
  141.             (makedir (tackon cal_dst cal_eurofont) (prompt (cat "Creating" (tackon cal_dst cal_eurofont)))
  142.                      (help @makedir-help))
  143.         ))
  144.  
  145.         ; Create fonts:video directory if necessary...
  146.  
  147.         (if (NOT (exists vid_font)) (
  148.             (makedir vid_font (prompt (cat "Creating" vid_font))
  149.                      (help @makedir-help))
  150.         ))
  151.  
  152.         ; Assigns for user-startup / startup-sequence / temp execute file
  153.         ; There are eleven of 'em...
  154.         (set cal_assigns (cat
  155.                         ".bra {\n"
  156.                         ".ket }\n"
  157.                         "if exists \"" cal_dst "\"\n"
  158.                         "   assign Caligari: \"" cal_dst "\"\n"
  159.                         "   assign CalData:       Caligari:CalData\n"
  160.                         "   assign CalScripts:    Caligari:\n"
  161.                         "   assign CalScenes:     Caligari:\n"
  162.                         "   assign CalRender:     Caligari:\n"
  163.                         "   assign CalTexture:    Caligari:Textures\n"
  164.                         "   assign CalEnviron:    Caligari:Environments\n"
  165.                         "   assign CalMaterial:   Caligari:Materials\n"
  166.                         "   assign CalScratch:    Caligari:Scratch\n"
  167.                         "   assign RenditionDI:   Caligari:Rend_DI\n"
  168.                         "   assign RenditionDD:   Caligari:Rend_Null\n"
  169.                         "endif\n"
  170.         ))
  171.  
  172.         ; Don't try to assign stuff to directories that won't exist
  173.         ; in pretend mode, though...
  174.         (if (not @pretend)
  175.         (
  176.              (textfile (dest cal_tmpfile)
  177.                       (append cal_assigns)
  178.                       (help @textfile-help)
  179.                       (prompt "Creating temporary file for needed assigns"))
  180.             (execute cal_tmpfile
  181.                      (prompt "Executing temporary file for needed assigns")
  182.                      (help @execute-help))
  183.         ))
  184.  
  185.         (askdisk   (prompt "Please insert disk 1, \n'" cal_dskname1 "'")
  186.                    (dest cal_volname1)
  187.                    (help @askdisk-help))
  188.  
  189.         (working "\nUnpacking archive of\n"
  190.                  "Caligari Executable")
  191.         (if archPath
  192.             (run (cat (tackon archPath archiver) " >nil: -mn x " cal_volname1 ":Caligari Caligari: *"))
  193.             ; else
  194.             (run (cat cal_volname1 ":c/" archiver " >nil: -mn x " cal_volname1 ":Caligari Caligari: *"))
  195.             ; -mn means no confirmation messages or progress indicator.
  196.         )
  197.  
  198.         (working "\nUnpacking archive of\n"
  199.                  "Caligari Texture Maps")
  200.         (if archPath
  201.             (run (cat (tackon archPath archiver) " >nil: -mn x " cal_volname1 ":Textures CalTexture: *"))
  202.             ; else
  203.             (run (cat cal_volname1 ":c/" archiver " >nil: -mn x " cal_volname1 ":Textures CalTexture: *"))
  204.             ; -mn means no confirmation messages or progress indicator.
  205.         )
  206.  
  207.         (askdisk   (prompt "Please insert disk 2, \n'" cal_dskname2 "'")
  208.                    (dest cal_volname2)
  209.                    (help @askdisk-help))
  210.  
  211.         (working "\nUnpacking archive of\n"
  212.                  "Caligari Environment Maps")
  213.         (if archPath
  214.             (run (cat (tackon archPath archiver) " >nil: -mn x " cal_volname2 ":Environments CalEnviron: *"))
  215.             ; else
  216.             (run (cat cal_volname1 ":c/" archiver " >nil: -mn x " cal_volname2 ":Environments CalEnviron: *"))
  217.             ; -mn means no confirmation messages or progress indicator.
  218.         )
  219.  
  220.         (working "\nUnpacking archive of\n"
  221.                  "Caligari Data Files")
  222.         (if archPath
  223.             ((run (cat (tackon archPath archiver) " >nil: -mn x " cal_volname2 ":CalData CalData: *"))
  224.              (run (cat (tackon archPath archiver) " >nil: -mn x " cal_volname2 ":spheres CalData: *")))
  225.             ; else
  226.             ((run (cat cal_volname1 ":c/" archiver " >nil: -mn x " cal_volname2 ":CalData CalData: *"))
  227.              (run (cat cal_volname1 ":c/" archiver " >nil: -mn x " cal_volname2 ":spheres CalData: *")))
  228.             ; -mn means no confirmation messages or progress indicator.
  229.         )
  230.  
  231.         (working "\nUnpacking archive of\n"
  232.                  "Caligari Rendition Renderer")
  233.         (if archPath
  234.             (run (cat (tackon archPath archiver) " >nil: -mn x " cal_volname2 ":Rend_null RenditionDD: *"))
  235.             ; else
  236.             (run (cat cal_volname1 ":c/" archiver " >nil: -mn x " cal_volname2 ":Rend_null RenditionDD: *"))
  237.             ; -mn means no confirmation messages or progress indicator.
  238.         )
  239.  
  240.         (working "\nUnpacking archive of\n"
  241.                  "Caligari Rendition Pipeline")
  242.         (if archPath
  243.             (run (cat (tackon archPath archiver) " >nil: -mn x " cal_volname2 ":Rend_di RenditionDI: *"))
  244.             ; else
  245.             (run (cat cal_volname1 ":c/" archiver " >nil: -mn x " cal_volname2 ":Rend_di RenditionDI: *"))
  246.             ; -mn means no confirmation messages or progress indicator.
  247.         )
  248.  
  249.         (working "\nUnpacking archive of\n"
  250.                  "Caligari Materials")
  251.         (if archPath
  252.             (run (cat (tackon archPath archiver) " >nil: -mn x " cal_volname2 ":Materials CalMaterial: *"))
  253.             ; else
  254.             (run (cat cal_volname1 ":c/" archiver " >nil: -mn x " cal_volname2 ":Materials CalMaterial: *"))
  255.             ; -mn means no confirmation messages or progress indicator.
  256.         )
  257.  
  258.         (working "\nUnpacking archive of\n"
  259.                  "Caligari Sample Objects")
  260.         (if archPath
  261.             (run (cat (tackon archPath archiver) " >nil: -mn x " cal_volname2 ":Objects CalScenes: *"))
  262.             ; else
  263.             (run (cat cal_volname1 ":c/" archiver " >nil: -mn x " cal_volname2 ":Objects CalScenes: *"))
  264.             ; -mn means no confirmation messages or progress indicator.
  265.         )
  266.  
  267.         (working "\nUnpacking archive of\n"
  268.                  "Caligari Euro 2D polygon font")
  269.         (if archPath
  270.             (run (cat (tackon archPath archiver) " >nil: -mn x " cal_volname2 ":eurofont Caligari:eurofont/ *"))
  271.             ; else
  272.             (run (cat cal_volname1 ":c/" archiver " >nil: -mn x " cal_volname2 ":eurofont Caligari:eurofont/ *"))
  273.             ; -mn means no confirmation messages or progress indicator.
  274.         )
  275.  
  276.         (if (askbool (prompt "Do you want to install the Caligari video.font?")
  277.                      (help "During animation preview playback, Caligari "
  278.                              "displays frame number and function information "
  279.                            "on screen in a special font. If this font is not "
  280.                            "installed, Caligari will use the standard Amiga "
  281.                            "system font (which looks pretty small...)."
  282.                      )
  283.                      (default "Yes")
  284.                      (choices "Yes" "No"))
  285.         (
  286.             (working "\nUnpacking archive of\n"
  287.                      "Caligari Video bitmap font")
  288.             (if archPath
  289.                 ((run (cat (tackon archPath archiver) " >nil: -mn x " cal_volname2 ":fonts1 FONTS: *"))
  290.                  (run (cat (tackon archPath archiver) " >nil: -mn x " cal_volname2 ":fonts2 FONTS:video/ *")))
  291.                 ; else
  292.                 ((run (cat cal_volname1 ":c/" archiver " >nil: -mn x " cal_volname2 ":fonts1 FONTS: *"))
  293.                  (run (cat cal_volname1 ":c/" archiver " >nil: -mn x " cal_volname2 ":fonts2 FONTS:video/ *")))
  294.                 ; -mn means no confirmation messages or progress indicator.
  295.             )
  296.         ))
  297.  
  298.         (if (askbool (prompt "Do you want to install the HAME libraries?")
  299.                      (help "In order to use the HAME device with Caligari, "
  300.                              "you need to install the HAME libraries. If you "
  301.                            "don't have a HAME, don't know what one is or "
  302.                            "have already installed BOTH HAME libraries, you "
  303.                            "can say No."
  304.                      )
  305.                      (default "Yes")
  306.                      (choices "Yes" "No"))
  307.         (
  308.             (working "\nUnpacking archive of\n"
  309.                      "HAME libraries")
  310.             (if archPath
  311.                 (run (cat (tackon archPath archiver) " >nil: -mn x " cal_volname2 ":libs LIBS: hame.library renderhame.library"))
  312.                 ; else
  313.                 (run (cat cal_volname1 ":c/" archiver " >nil: -mn x " cal_volname2 ":libs LIBS: hame.library renderhame.library"))
  314.             ; -mn means no confirmation messages or progress indicator.
  315.             )
  316.         ))
  317.  
  318.         (if (askbool (prompt "Do you want to install the DCTV library?")
  319.                      (help "In order to use DCTV with Caligari, you need "
  320.                            "to install the DCTV.library. If you don't "
  321.                            "have DCTV, don't know what it is or have "
  322.                            "already installed the DCTV library, you "
  323.                            "can say No."
  324.                      )
  325.                      (default "Yes")
  326.                      (choices "Yes" "No"))
  327.         (
  328.             (working "\nUnpacking archive of\n"
  329.                      "DCTV.library")
  330.             (if archPath
  331.                 (run (cat (tackon archPath archiver) " >nil: -mn x " cal_volname2 ":libs LIBS: dctv.library"))
  332.                 ; else
  333.                 (run (cat cal_volname1 ":c/" archiver " >nil: -mn x " cal_volname2 ":libs LIBS: dctv.library"))
  334.             ; -mn means no confirmation messages or progress indicator.
  335.             )
  336.         ))
  337.  
  338.         (set mods_ok 1)
  339.         (if (= @user-level 1)     ; average users aren't prompted by (startup...)
  340.             (set mods_ok
  341.                 (askbool (help "Answering 'Yes' means that it is "
  342.                               "okay for the Installer to modify your "
  343.                               "startup procedure (s:user-startup and "
  344.                                 "s:startup-sequence, if appropriate) so "
  345.                                 "that the Caligari software works properly. "
  346.                                 "In this case, there are 11 "
  347.                                 "ASSIGN commands which the Caligari package "
  348.                                 "requires.  To use Caligari, these commands "
  349.                                 "must be given every time you boot your "
  350.                                 "Amiga.  It is recommended to add these lines.  "
  351.                                 "These are as follows:\n\n" cal_assigns
  352.                           )
  353.                          (prompt "Is it okay to add a few lines at the "
  354.                                  "end of your startup procedure so that "
  355.                                  "the system has the proper Assigns for "
  356.                                  "the Caligari package?  Press HELP "
  357.                                  "for more details.")
  358.                          (default 1)
  359.         )))
  360.  
  361.         (if mods_ok
  362.             (startup "Caligari2"
  363.                      (prompt "Is it okay to add a few lines at the "
  364.                              "end of your startup file, s:user-startup, so "
  365.                              "that the system has the proper Assigns for "
  366.                              "the Caligari package?  Press HELP "
  367.                              "for more details."
  368.                      )
  369.                      (help "Caligari won't work properly without the following assigns:\n\n"
  370.                               cal_assigns
  371.                              "\n\nIf these lines are not added, "
  372.                              "you will need to click on the file 'Caligari:Caligari-Setup' "
  373.                              "each time you boot your machine, before you start using "
  374.                              "the Caligari software."
  375.                      )
  376.                       (command cal_assigns)
  377.             )
  378.             ( ; else
  379.                 (message "You will need to click on the file 'Caligari:Caligari-Setup' "
  380.                          "each time you start your machine, when you want to use "
  381.                          "the Caligari software.")
  382.                 )
  383.         ) ; mods_ok
  384.  
  385.         ; Update "Caligari-Setup"
  386.         (textfile (dest "Caligari:Caligari-Setup")
  387.                   (append cal_assigns)
  388.                   (help "Currently updating 'Caligari:Caligari-Setup' so that "
  389.                         "it will contain the proper assigns and Caligari will "
  390.                         "be properly set up when the setup is executed.  This "
  391.                             "operation is highly recommended.")
  392.                     (prompt "Currently updating 'Caligari:Caligari-Setup' so that "
  393.                           "the commands are customized to your installation.")
  394.         ) ; textfile
  395.     )
  396. ;;;;;;
  397. ;;;;;;      Install to Floppy
  398. ;;;;;;
  399.     (
  400.         (askdisk   (prompt "Please insert a newly formatted disk named\n"
  401.                            "'" cal_drv "' in any drive. To format a disk,\n"
  402.                            "you can select the icon of the disk you wish\n"
  403.                            "to format and select the 'Format' or\n"
  404.                            "'Initialize' option from the Workbench menus.\n"
  405.                            "You do not need to exit the Installer to\n"
  406.                            "format the disk, simply move the Installer\n"
  407.                            "window to the side and you should have easy\n"
  408.                            "access to the Workbench. Don't forget to\n"
  409.                            "rename the disk from the Workbench menus after\n"
  410.                            "formatting it!\n"
  411.                            "For more information, please see your Amiga\n"
  412.                            "owners' manual")
  413.                    (dest cal_drv)
  414.                    (help @askdisk-help))
  415.  
  416.         (askdisk   (prompt "Please insert disk 1, \n'" cal_dskname1 "'")
  417.                    (dest cal_volname1)
  418.                    (help @askdisk-help))
  419.  
  420.         ; Create main directory...
  421.  
  422.         (set cal_dst (tackon cal_drv2 "Caligari"))
  423.  
  424.         (makedir cal_dst (prompt (cat "Creating" cal_dst))
  425.                  (infos) (help @makedir-help))
  426.  
  427.         ; Create CalData directory...
  428.  
  429.         (makedir (tackon cal_dst cal_data) (prompt (cat "Creating" (tackon cal_dst cal_data)))
  430.                  (help @makedir-help))
  431.  
  432.         ; Create Scratch directory...
  433.  
  434.         (makedir (tackon cal_dst cal_scratch) (prompt (cat "Creating" (tackon cal_dst cal_scratch)))
  435.                  (help @makedir-help))
  436.  
  437.         ; Create Materials directory...
  438.  
  439.         (makedir (tackon cal_dst cal_material) (prompt (cat "Creating" (tackon cal_dst cal_material)))
  440.                  (help @makedir-help))
  441.  
  442.         ; Create Textures directory...
  443.  
  444.         (makedir (tackon cal_dst cal_texture) (prompt (cat "Creating" (tackon cal_dst cal_texture)))
  445.                  (help @makedir-help))
  446.  
  447.         ; Create Environments directory...
  448.  
  449.         (makedir (tackon cal_dst cal_environ) (prompt (cat "Creating" (tackon cal_dst cal_environ)))
  450.                  (help @makedir-help))
  451.  
  452.         ; Create Rend_null directory...
  453.  
  454.         (makedir (tackon cal_dst cal_rendnull) (prompt (cat "Creating" (tackon cal_dst cal_rendnull)))
  455.                  (help @makedir-help))
  456.  
  457.         ; Create Rend_di directory...
  458.  
  459.         (makedir (tackon cal_dst cal_renddi) (prompt (cat "Creating" (tackon cal_dst cal_renddi)))
  460.                  (help @makedir-help))
  461.  
  462.         ; Create eurofont directory...
  463.  
  464.         (makedir (tackon cal_dst cal_eurofont) (prompt (cat "Creating" (tackon cal_dst cal_eurofont)))
  465.                  (help @makedir-help))
  466.  
  467. ; Assigns for user-startup / startup-sequence / temp execute file
  468. ; There are eleven of 'em...
  469.     (set cal_assigns (cat
  470.                 ".bra {\n"
  471.                 ".ket }\n"
  472.                 "if exists \"" cal_dst "\"\n"
  473.                 "   assign Caligari: \"" cal_dst "\"\n"
  474.                 "   assign CalData:       Caligari:CalData\n"
  475.                 "   assign CalScripts:    Caligari:\n"
  476.                 "   assign CalScenes:     Caligari:\n"
  477.                 "   assign CalRender:     Caligari:\n"
  478.                 "   assign CalTexture:    Caligari:Textures\n"
  479.                 "   assign CalEnviron:    Caligari:Environments\n"
  480.                 "   assign CalMaterial:   Caligari:Materials\n"
  481.                 "   assign CalScratch:    Caligari:Scratch\n"
  482.                 "   assign RenditionDI:   Caligari:Rend_DI\n"
  483.                 "   assign RenditionDD:   Caligari:Rend_Null\n"
  484.                 "endif\n"
  485.     ))
  486.  
  487.     ; Don't try to assign stuff to directories that won't exist
  488.     ; in pretend mode, though...
  489.     (if (not @pretend)
  490.       (
  491.          (textfile (dest cal_tmpfile)
  492.                    (append cal_assigns)
  493.                    (help @textfile-help)
  494.                    (prompt "Creating temporary file for needed assigns"))
  495.          (execute cal_tmpfile
  496.                    (prompt "Executing temporary file for needed assigns")
  497.                    (help @execute-help))
  498.       )
  499.     )
  500.  
  501.         (askdisk   (prompt "Please insert disk 1, \n'" cal_dskname1 "'")
  502.                    (dest cal_volname1)
  503.                    (help @askdisk-help))
  504.  
  505.         (working "\nUnpacking archive of\n"
  506.                  "Caligari Executable")
  507.         (if archPath
  508.             (run (cat (tackon archPath archiver) " >nil: -mn x " cal_volname1 ":Caligari Caligari: *"))
  509.             ; else
  510.             (run (cat cal_volname1 ":c/" archiver " >nil: -mn x " cal_volname1 ":Caligari Caligari: *"))
  511.             ; -mn means no confirmation messages or progress indicator.
  512.         )
  513.  
  514.         (askdisk   (prompt "Please insert disk 2, \n'" cal_dskname2 "'")
  515.                    (dest cal_volname2)
  516.                    (help @askdisk-help))
  517.  
  518.         (working "\nUnpacking archive of\n"
  519.                  "Caligari Data Files")
  520.         (if archPath
  521.             (run (cat (tackon archPath archiver) " >nil: -mn x " cal_volname2 ":CalData CalData: *"))
  522.             ; else
  523.             (run (cat cal_volname1 ":c/" archiver " >nil: -mn x " cal_volname2 ":CalData CalData: *"))
  524.             ; -mn means no confirmation messages or progress indicator.
  525.         )
  526.  
  527.         (working "\nUnpacking archive of\n"
  528.                  "Caligari Sample Objects")
  529.         (if archPath
  530.             (run (cat (tackon archPath archiver) " >nil: -mn x " cal_volname2 ":Objects CalScenes: tricycle.sobj robie.sobj stapler.sobj jar.sobj gasket.sobj"))
  531.             ; else
  532.             (run (cat cal_volname1 ":c/" archiver " >nil: -mn x " cal_volname2 ":Objects CalScenes: tricycle.sobj robie.sobj stapler.sobj jar.sobj gasket.sobj"))
  533.             ; -mn means no confirmation messages or progress indicator.
  534.         )
  535.  
  536.         (working "\nUnpacking archive of\n"
  537.                  "Caligari Euro 2D polygon font")
  538.         (if archPath
  539.             (run (cat (tackon archPath archiver) " >nil: -mn x " cal_volname2 ":eurofont Caligari:eurofont/ *"))
  540.             ; else
  541.             (run (cat cal_volname1 ":c/" archiver " >nil: -mn x " cal_volname2 ":eurofont Caligari:eurofont/ *"))
  542.             ; -mn means no confirmation messages or progress indicator.
  543.         )
  544.  
  545.         (message "You will need to click on the file 'Caligari:Caligari-Setup' "
  546.                  "each time you start your machine, when you want to use "
  547.                  "the Caligari software.")
  548.     )
  549. )
  550.  
  551. ; Caligari hard disk ========================================================
  552.  
  553. ; Remove temporary assign file.
  554. (if (exists cal_tmpfile)
  555.        (delete cal_tmpfile (prompt "Deleting temporary assign file")
  556.                            (help @delete-help)))
  557.  
  558. ; If our archiver wound up in ram:, delete it.
  559. (if (exists (tackon archDest archiver))
  560.         (delete (tackon archDest archiver)
  561.                 (prompt "Deleting temporary file in " archDest ".")
  562.                 (help @delete-help)))
  563.  
  564. ; This bit must go last---its purpose in life is to inform the user
  565. ; where all the software wound up.  Since that can be in over four
  566. ; different places, we're going to have to make @default-dest unusable
  567. ; for anything else, just to get the message across...
  568.  
  569. (set @default-dest look_here)
  570.